Here are the Finnish national parks I have visited :)
Coordinates were imported from kartta.com/muut-kartat/suomen-kansallispuistot/.
pacman::p_load(tidyverse)data <- openxlsx::read.xlsx("data/parks.xlsx") %>%
tidyr::separate(Coordinates, c('Lat', 'Long'), sep = ", ") %>%
mutate(Lat = as.numeric(Lat), Long = as.numeric(Long))data## Park Park_short
## 1 Etelä-Konneveden kansallispuisto Etelä-Konnevesi
## 2 Helvetinjärven kansallispuisto Helvetijärvi
## 3 Hiidenportin kansallispuisto Hiidenportti
## 4 Hossan kansallispuisto Hossa
## 5 Isojärven kansallispuisto Isojärvi
## 6 Itäisen Suomenlahden kansallispuisto Itäinen Suomenlahti
## 7 Kauhanevan–Pohjankankaan kansallispuisto Kauhaneva-Pohjakangas
## 8 Kolin kansallispuisto Koli
## 9 Koloveden kansallispuisto Kolovesi
## 10 Kurjenrahkan kansallispuisto Kurjenrahka
## 11 Lauhanvuoren kansallispuisto Lauhanvuori
## 12 Leivonmäen kansallispuisto Leivonmäki
## 13 Lemmenjoen kansallispuisto Lemmenjoki
## 14 Liesjärven kansallispuisto Liesjärvi
## 15 Linnansaaren kansallispuisto Linnansaari
## 16 Nuuksion kansallispuisto Nuuksio
## 17 Oulangan kansallispuisto Oulanka
## 18 Pallas-Yllästunturin kansallispuisto Pallas-Yllästunturi
## 19 Patvinsuon kansallispuisto Patvinsuo
## 20 Perämeren kansallispuisto Perämeri
## 21 Petkeljärven kansallispuisto Petkeljärvi
## 22 Puurijärven ja Isosuon kansallispuisto Puurijärvi-Isosuo
## 23 Pyhä-Häkin kansallispuisto Pyhä-Häkki
## 24 Pyhä-Luoston kansallispuisto Pyhä-Luosto
## 25 Päijänteen kansallispuisto Päijänne
## 26 Repoveden kansallispuisto Repovesi
## 27 Riisitunturin kansallispuisto Riisitunturi
## 28 Rokuan kansallispuisto Rokua
## 29 Saaristomeren kansallispuisto Saaristomeri
## 30 Salamajärven kansallispuisto Salamajärvi
## 31 Sallan kansallispuisto Salla
## 32 Seitsemisen kansallispuisto Seitseminen
## 33 Selkämeren kansallispuisto Selkämeri
## 34 Sipoonkorven kansallispuisto Sipoonkorpi
## 35 Syötteen kansallispuisto Syöte
## 36 Tammisaaren saariston kansallispuisto Tammisaaren saaristo
## 37 Teijon kansallispuisto Teijo
## 38 Tiilikkajärven kansallispuisto Tiilikkajärvi
## 39 Torronsuon kansallispuisto Torronsuo
## 40 Urho Kekkosen kansallispuisto UKK
## 41 Valkmusan kansallispuisto Valkmusa
## Region
## 1 Pohjois-Savo ja Keski-Suomi
## 2 Pirkanmaa
## 3 Kainuu
## 4 Kainuu, Pohjois-Pohjanmaa
## 5 Pirkanmaa
## 6 Kymenlaakso
## 7 Etelä-Pohjanmaa ja Satakunta
## 8 Pohjois-Karjala
## 9 Etelä-Savo ja Pohjois-Karjala
## 10 Varsinais-Suomi
## 11 Etelä-Pohjanmaa
## 12 Keski-Suomi
## 13 Lappi
## 14 Kanta-Häme, Uusimaa ja Varsinais-Suomi
## 15 Etelä-Savo ja Pohjois-Savo
## 16 Uusimaa
## 17 Pohjois-Pohjanmaa ja Lappi
## 18 Lappi
## 19 Pohjois-Karjala
## 20 Lappi
## 21 Pohjois-Karjala
## 22 Pirkanmaa ja Satakunta
## 23 Keski-Suomi
## 24 Lappi
## 25 Päijät-Häme
## 26 Kymenlaakso ja Etelä-Savo
## 27 Lappi
## 28 Pohjois-Pohjanmaa
## 29 Varsinais-Suomi
## 30 Keski-Pohjanmaa ja Keski-Suomi
## 31 Lappi
## 32 Pirkanmaa
## 33 Satakunta ja Varsinais-Suomi
## 34 Uusimaa
## 35 Pohjois-Pohjanmaa ja Lappi
## 36 Uusimaa
## 37 Varsinais-Suomi
## 38 Pohjois-Savo ja Kainuu
## 39 Kanta-Häme
## 40 Lappi
## 41 Kymenlaakso
## Municipality
## 1 Rautalampi ja Konnevesi
## 2 Ruovesi
## 3 Sotkamo
## 4 Suomussalmi, Kuusamo, Taivalkoski
## 5 Kuhmoinen
## 6 Pyhtää, Kotka, Hamina ja Virolahti
## 7 Kauhajoki ja Karvia
## 8 Joensuu, Kontiolahti ja Lieksa
## 9 Enonkoski, Heinävesi ja Savonlinna
## 10 Aura, Masku, Mynämäki, Nousiainen, Pöytyä, Rusko ja Turku
## 11 Kauhajoki ja Isojoki
## 12 Joutsa
## 13 Inari ja Kittilä
## 14 Tammela, Somero ja Karkkila
## 15 Rantasalmi, Savonlinna ja Varkaus
## 16 Espoo, Kirkkonummi ja Vihti
## 17 Kuusamo ja Salla
## 18 Kittilä, Enontekiö, Muonio ja Kolari
## 19 Lieksa ja Ilomantsi
## 20 Kemi ja Tornio
## 21 Ilomantsi
## 22 Huittinen, Kokemäki ja Sastamala
## 23 Saarijärvi
## 24 Pelkosenniemi, Sodankylä ja Kemijärvi
## 25 Padasjoki, Asikkala ja Sysmä
## 26 Kouvola ja Mäntyharju
## 27 Posio
## 28 Vaala ja Utajärvi
## 29 Parainen ja Kemiönsaari
## 30 Perho, Kivijärvi ja Kinnula
## 31 Salla
## 32 Ylöjärvi ja Ikaalinen
## 33 Eurajoki, Kustavi, Merikarvia, Pori, Pyhäranta, Rauma ja Uusikaupunki
## 34 Helsinki, Vantaa ja Sipoo
## 35 Pudasjärvi, Posio ja Taivalkoski
## 36 Raasepori
## 37 Salo
## 38 Rautavaara ja Sotkamo
## 39 Tammela
## 40 Sodankylä, Savukoski ja Inari
## 41 Pyhtää ja Kotka
## Area Founded Visitors_2023 Lat Long Visit Date
## 1 15.44 2014 31Â 000 62.5500 26.6333 Joo NA
## 2 49.50 1982 44Â 000 62.0333 23.8500 Joo NA
## 3 45.00 1982 9Â 800 63.8728 29.0586 Joo NA
## 4 110.00 2017 77Â 900 65.4897 29.3236 Joo NA
## 5 22.00 1982 24 300 61.6983 25.0108 Ei vielä NA
## 6 7.00 1982 15 800 60.2500 27.1667 Ei vielä NA
## 7 57.00 1982 26Â 300 62.1833 22.4000 Joo NA
## 8 30.00 1991 249Â 100 63.0968 29.8062 Joo NA
## 9 23.00 1990 14Â 200 62.2431 28.8361 Joo NA
## 10 29.00 1998 67 300 60.7333 22.4167 Ei vielä NA
## 11 54.00 1982 21Â 300 62.1519 22.1750 Joo NA
## 12 30.00 2003 28Â 700 61.9333 26.0333 Joo NA
## 13 2860.00 1956 23 900 68.5000 25.5000 Ei vielä NA
## 14 22.00 1956 50Â 400 60.6536 23.8977 Joo NA
## 15 96.00 1956 39 200 62.1097 28.5194 Ei vielä NA
## 16 53.00 1994 274Â 400 60.3167 24.4667 Joo NA
## 17 290.00 1956 175Â 800 66.3667 29.3333 Joo NA
## 18 1020.00 1938 584Â 000 68.0700 24.0500 Joo NA
## 19 105.00 1982 16Â 500 63.1131 30.7012 Joo NA
## 20 157.00 1991 6 400 65.6167 24.3167 Ei vielä NA
## 21 6.00 1956 16 100 62.5833 31.1833 Ei vielä NA
## 22 27.00 1993 20 200 61.2492 22.5669 Ei vielä NA
## 23 13.00 1956 18Â 400 62.8456 25.4725 Joo NA
## 24 142.00 1938 217Â 400 67.0192 27.2521 Joo NA
## 25 14.00 1993 67 000 61.3667 25.4500 Ei vielä NA
## 26 15.00 2003 132 400 61.1833 26.8833 Ei vielä NA
## 27 76.00 1982 61Â 200 66.2333 28.5000 Joo NA
## 28 15.00 1956 47 700 64.5561 26.5100 Ei vielä NA
## 29 500.00 1983 78 800 59.9167 21.7000 Ei vielä NA
## 30 62.00 1982 25Â 300 63.2667 24.7500 Joo NA
## 31 99.83 2022 62Â 200 66.7801 28.8627 <NA> NA
## 32 45.50 1982 43 600 61.9667 23.6000 Ei vielä NA
## 33 913.00 2011 79 400 61.5355 21.5639 Ei vielä NA
## 34 24.00 2011 172Â 500 60.3125 25.1625 Joo NA
## 35 299.00 2000 106Â 100 65.7014 27.5722 Joo NA
## 36 52.00 1989 53 200 59.8727 23.3975 Ei vielä NA
## 37 33.85 2015 93 000 60.2239 22.9603 Ei vielä NA
## 38 71.00 1982 24Â 700 63.6667 28.3000 Joo NA
## 39 30.00 1990 58Â 000 60.7333 23.6167 Joo NA
## 40 2550.00 1983 417 600 68.3333 28.0000 Ei vielä NA
## 41 19.50 1996 20Â 000 60.5667 26.7333 Joo NAAwesome icons https://rstudio.github.io/leaflet/reference/awesomeIcons.html
pacman::p_load(sp, leaflet)
# Icon colors
data <- data %>%
mutate(
Color = case_when(
Visit == "Joo" ~ "green",
TRUE ~ "gray50"
)
)
# Icons
icons <- awesomeIcons(
# icon = 'pin',
iconColor = data$Color,
library = 'ion',
markerColor = data$Color
)
# National park logos
Icons <- icons(
iconUrl = list.files(path = "logos", full.names = T),
iconWidth = 30, iconHeight = 30,
iconAnchorX = 0, iconAnchorY = 0
)
# Plot
data %>%
leaflet() %>%
addTiles() %>%
addAwesomeMarkers(
icon = icons,
label = data$Park_short,
lng = data$Long, lat = data$Lat,
options = popupOptions(closeButton = FALSE),
labelOptions = labelOptions(
noHide = TRUE, textOnly = TRUE,
direction = "bottom"
)
)data %>%
leaflet() %>%
addTiles() %>%
addAwesomeMarkers(
icon = icons,
label = data$Park_short,
lng = data$Long, lat = data$Lat,
options = popupOptions(closeButton = FALSE),
labelOptions = labelOptions(
noHide = TRUE, textOnly = TRUE,
direction = "bottom"
)
) %>%
addMarkers(~Long, ~Lat, icon = Icons)data %>%
leaflet() %>%
addTiles() %>%
addAwesomeMarkers(
icon = icons,
label = data$Park_short,
lng = data$Long, lat = data$Lat,
options = popupOptions(closeButton = FALSE),
labelOptions = labelOptions(
noHide = TRUE, textOnly = TRUE,
direction = "bottom"
)
) %>%
addMarkers(~Long, ~Lat, icon = Icons)